Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DEINDEX.PRG

Text File | 1985-07-02 | 3KB | 99 lines

Set talk off
clear
Set Color To w+/
*  Do ScrBoard
*  PROCEDURE SCRBOARD
  clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "│"
  @ 9,79 SAY "│"
  @ 10,0 SAY "│"
  @ 10,79 SAY "│"
  @ 11,0 SAY "│"
  @ 11,79 SAY "│"
  @ 12,0 SAY "│"
  @ 12,79 SAY "│"
  @ 13,0 SAY "│"
  @ 13,79 SAY "│"
  @ 14,0 SAY "│"
  @ 14,79 SAY "│"
  @ 15,0 SAY "│"
  @ 15,79 SAY "│"
  @ 16,0 SAY "│"
  @ 16,79 SAY "│"
  @ 17,0 SAY "│"
  @ 17,79 SAY "│"
  @ 18,0 SAY "│"
  @ 18,79 SAY "│"
  @ 19,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
  @ 20,0 SAY "│"
  @ 20,79 SAY "│"
  @ 21,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
*  RETURN
Set Color To gr+/
@ 2,10 Say '  d B A S E - I I I   .and.   C l i p p e r  ....  [Index 100]  '
Set Color To w+/
*
If .not. File( 'De100.Dbf' )
  Set Color To r+*/w
  @ 7,10 Say ' ** Error ** ... Data file "De100.Dbf" not on disk. '
  Resp = ' '
  Set Color To gr+/,/gr
  @ 20,10 Say 'Please press ANYKEY for Main Menu ' Get Resp
  Read
  Clear Gets
  Return
Endif
*
Use De100
*
@ 10,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
Set Color To bg/
@ 12,4 Say '     The index being built has a key of Substr(F1,1,90),    this means'
Set Color To b+/
@ 12,44 Say 'Substr(F1,1,90)'
Set Color To bg/
@ 13,4 Say 'the key length is 90 characters long.'
Set Color To b+/
@ 13,08 Say 'key length is 90'
Set Color To bg/
@ 15,4 Say '     It  is good practice to keep index keys short as long  keys  will'
@ 16,4 Say 'inevitably result in large index files, however for this demonstration'
@ 17,4 Say 'a long key is being used to show the affect this can have on speed.'
*
Set Color To r+/
@ 5,16 Say 'Record Index Counter   --Time--   Time Taken'
@ 6,16 Say '~~~~~~~~~~~~~~~~~~~~   ~~~~~~~~   ~~~~~~~~~~'
Set Color To g+/
Start_Sec = (Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))
Store 0 To Seconds, mcount
@ 7,15 Say '    0 Records Indexed   ' + Time() + Space(2) + Str(Seconds,3) + ' Seconds'
@ 20,1 Say Space(78)
Set Color To br+*
@ 20,21 Say ' Please Wait ... Indexing File '
Set Color To g+/
Set Safety Off
Index On Substr(f1,1,90) To De100
Seconds = ((Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))) - Start_Sec
@ 9,15 Say '  100 Records Indexed' + Space(3) + Time() + Space(2) + Str(Seconds,3) + ' Seconds'
Set Safety On
Set Color To gr+/,w+/gr
@ 20,1 Say Space(78)
Resp = ' '
@ 20,10 Say 'Press ANYKEY for Main Menu ' Get Resp
Read
Clear Gets
Return